library(readr)
library(readxl)
library(dplyr)
library(ggplot2)
library(scales)
library(ggrepel)
library(ggtext)
library(writexl)
library(stringr)
library(reshape2)
library(readr)
library(readxl)

library(showtext)
font_add(family = "Arial", regular = "Arial.ttf") ## here is the path to the font to add.
showtext.auto()

# Theme for graphs (best)
theme <- theme_set(theme_minimal())

graph <- read_excel("data.xlsx")

graph %>%
  ggplot(aes(x=year)) +
  geom_line(aes(y=cumulative), size=1.3) +
  labs(title="",
       x="Year",
       y="Cumulative Number of RTAs in force",
       fill="",
       caption="Source: WTO") +
  theme(axis.title.x = element_text(color="black", size=16), 
        axis.title.y = element_text(color="black", size=16), 
        axis.text.x = element_text(color="black", size=14), 
        axis.text.y = element_text(color="black", size=14)) 


